home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / aakxref.arc / A_LIN_CH.PAS next >
Pascal/Delphi Source File  |  1986-04-25  |  1KB  |  24 lines
  1. (********************************************************************)
  2. (* THIS PROCEDURE WILL ADD A CHAR TO THE LINE RECORD ON THE END OF  *)
  3. (* INPUT LINE POINTER. WILL ALSO UPDATE CPL BY 1                    *)
  4. (* INPUT        : Line_Ptr,ch                                       *)
  5. (* INPUT/OUTPUT : NONE                                              *)
  6. (* OUTPUT       : UPDATED LINE RECORD                               *)
  7. (* USES         : NO SIDE EFFECTS                                   *)
  8. (* CALLS        : NONE                                              *)
  9. (* ERRORS       : NONE CHECKED                                      *)
  10. (* GLOBAL VARS  : NONE                                              *)
  11. (* SUBJECT      : PRINTER, LINE OF TEXT                             *)
  12. (* DOMAIN       : ARNO A. KARNER                      LEVEL : 000   *)
  13. (********************************************************************)
  14.  
  15. PROCEDURE Add_Line_Ch ( Lin : Line_Ptr ;
  16.                         Ch  : CHAR ) ;
  17.  
  18. BEGIN (* PROC *)
  19.    WITH Lin^ DO
  20.    BEGIN
  21.       Line := Line + Ch ;
  22.       CPL  := CPL + 1 ;
  23.    END ;
  24. END ; (* PROC *)